object CalendarForm: TCalendarForm Left = 250 Top = 116 BorderIcons = [biSystemMenu] BorderStyle = bsToolWindow Caption = 'Calendar' ClientHeight = 315 ClientWidth = 433 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PopupMenu = PopupMenu1 OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object TestImage: TImage Left = 0 Top = 4 Width = 390 Height = 201 AutoSize = True end object Bevel1: TBevel Left = 0 Top = 293 Width = 433 Height = 2 Align = alBottom Shape = bsTopLine end object Panel1: TPanel Left = 0 Top = 295 Width = 433 Height = 20 Align = alBottom BevelOuter = bvNone Color = clWhite TabOrder = 0 DesignSize = ( 433 20) object SpeedButton_MonthNext: TSpeedButton Left = 351 Top = 0 Width = 80 Height = 20 Anchors = [akTop, akRight] Caption = 'Next' Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FF000000996633000000FF00FFFF00FFFF00FFFF00FF000000 0000000000000000000000000000000000000000000000000000009966339966 33000000FF00FFFF00FFFF00FF00000099663399663399663399663399663399 6633996633996633996633996633996633996633000000FF00FFFF00FF000000 9966339966339966339966339966339966339966339966339966339966339966 33996633000000FF00FFFF00FF00000000000000000000000000000000000000 0000000000000000000000996633996633000000FF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000009966330000 00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FF000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} Layout = blGlyphRight OnClick = MenuItem_NextMonthClick end object SpeedButton_MonthPrev: TSpeedButton Left = 2 Top = 0 Width = 80 Height = 20 Caption = 'Prev' Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FF000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000996633000000FF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF 0000009966339966330000000000000000000000000000000000000000000000 00000000000000FF00FFFF00FF00000099663399663399663399663399663399 6633996633996633996633996633996633996633000000FF00FFFF00FF000000 9966339966339966339966339966339966339966339966339966339966339966 33996633000000FF00FFFF00FFFF00FF00000099663399663300000000000000 0000000000000000000000000000000000000000000000FF00FFFF00FFFF00FF FF00FF000000996633000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} OnClick = MenuItem_PrevMonthClick end end object PopupMenu1: TPopupMenu Left = 8 Top = 232 object MenuItem_Today: TMenuItem Caption = 'Today'#9'Del, Home' OnClick = MenuItem_TodayClick end object MenuItem_Separator1: TMenuItem Caption = '-' end object MenuItem_PrevMonth: TMenuItem Caption = 'Previous Month'#9'PgUp' OnClick = MenuItem_PrevMonthClick end object MenuItem_NextMonth: TMenuItem Caption = 'Next Month'#9'PgDn' OnClick = MenuItem_NextMonthClick end object MenuItem_Separator2: TMenuItem Caption = '-' end object MenuItem_PrevYear: TMenuItem Caption = 'Previous Year'#9'Ctrl+PgUp' OnClick = MenuItem_PrevYearClick end object MenuItem_NextYear: TMenuItem Caption = 'Next Year'#9'Ctrl+PgDn' OnClick = MenuItem_NextYearClick end object MenuItem_Separator3: TMenuItem Caption = '-' end object MenuItem_Refresh: TMenuItem Caption = 'Refresh Calendar' OnClick = MenuItem_RefreshClick end end end